Australian Personal Computer 2002 November/CD 1/APC0211D1.ISO/workshop/prog/files/ActivePerl-5.6.1.633-MSWin32.msi/_9bbca82538c1964578c587a898dcfa13

Text File | 2001-10-17 | 491 b | 24 lines

package URI::file::FAT;

require URI::file::Win32;
@ISA=qw(URI::file::Win32);

sub fix_path
{
    shift; # class
    for (@_) {
    # turn it into 8.3 names
    my @p = map uc, split(/\./, $_, -1);
    return if @p > 2;     # more than 1 dot is not allowed
    @p = ("") unless @p;  # split bug? (returns nothing when splitting "")
    $_ = substr($p[0], 0, 8);
        if (@p > 1) {
        my $ext = substr($p[1], 0, 3);
        $_ .= ".$ext" if length $ext;
    }
    }
    1;  # ok
}

1;